home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SPX30.ZIP / SPX_INT.ZIP / SPX_EFF.INT < prev    next >
Encoding:
Text File  |  1994-06-10  |  1.2 KB  |  42 lines
  1. Unit spx_eff;
  2.  
  3. {$X+,O+ }
  4. { SPX Library Version 3.0  Copyright 1994 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. Uses spx_vga;
  9.  
  10. const
  11.   wmax = 100;
  12.  
  13. type
  14.   usercp       = procedure (f,t,yline:longint);
  15.   Pcycle       = ^Tcycle;
  16.   Tcycle       = object
  17.                    cyc_next,
  18.                    from_x,from_y,
  19.                    cyc_x,cyc_y,
  20.                    cyc_width,
  21.                    cyc_height,
  22.                    cycley,
  23.                    cyclex,fr_size,
  24.                    am_size         : word;
  25.                    cycle_cos       : array[0..wmax-1] of integer;
  26.                    constructor init(freq,size:integer);
  27.                    destructor done;virtual;
  28.                    procedure changewave(freq,size:integer);virtual;
  29.                    procedure docycle(from,too,mode:byte); virtual;
  30.                    procedure cycle_move; virtual;
  31.                    procedure adjustcyclenext; virtual;
  32.                  end;
  33.  
  34. var
  35.   usercycle : usercp;
  36.  
  37. procedure linemove(s,d:longint;cnt:word);
  38. procedure wordmove(var source,dest;cnt:word);
  39. procedure cycleline(f,t:longint;cyclex,cycle_width:word);
  40. procedure cycleline_trans(f,t:longint;cyclex,cycle_width:word);
  41.  
  42.